home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
stos
/
stos_83
/
starwars.bas
(
.txt
)
< prev
next >
Wrap
Atari STOS Basic
|
1987-04-21
|
27KB
|
192 lines
10 REM ****************************
100 MODE
1000 REM * starfield 1 *******************************
101 CURS
1010 REM * with colour 10-15 *************************
1020 CLS
1025 VARNAME
1030 FOR
1040 FOR
1050 VARNAME
1060 FOR
1065 IF
1070 INK
1076 REM
1080 NEXT
1085 NEXT
1090 NEXT
1091 FOR
1092 FOR
1093 INK
1094 NEXT
1099 RETURN
11 REM * *
110 GOSUB
1100 REM * begin starfield ****************************
1105 VARNAME
1110 FOR
1120 VARNAME
1130 VARNAME
1140 REPEAT
1150 INK
1160 VARNAME
1170 INC
1180 UNTIL
1190 NEXT
1195 SHIFT
1199 RETURN
12 REM * STAR WARS *
120 GOSUB
13 REM * *
130 SHIFT
135 PEN
14 REM * *
15 REM ****************************
150 REM * begin **************************************
16 VARNAME
160 VARNAME
180 VARNAME
181 VARNAME
182 VARNAME
183 VARNAME
185 PAPER
190 MOVE
20 DIM
200 REM * game ***************************************
2000 REM * wat is er geraakt ***********************************
2005 VARNAME
2006 IF
201 IF
2010 IF
2020 IF
2099 RETURN
21 VARNAME
2100 IF
2110 IF
22 VARNAME
23 VARNAME
24 VARNAME
25 VARNAME
250 IF
255 IF
26 VARNAME
260 IF
27 VARNAME
270 IF
28 VARNAME
292 INC
299 REM * Vuurbal *************************************
2999 RETURN
300 IF
3000 REM * init ****************************************
3010 FOR
302 SPRITE
3020 VARNAME
303 MOVE X
304 INC
3099 RETURN
310 REM * enemy ************************************
315 IF
320 SPRITE
330 MOVE X
340 INC
350 REM * bom ****************************
351 VARNAME
355 IF
360 MOVE X
361 INC
362 IF
370 REM * superschip **********************************
371 IF
372 SPRITE
373 VARNAME
380 REM * rots ****************************************
381 IF
382 SPRITE
390 REM * schoten van super schip **********************
391 IF
392 IF
393 SPRITE
394 MOVE X
395 MOVE Y
396 INC
399 IF
400 REM **********************************************
4000 REM * einde level *********************************
4005 MOVE
4009 FOR
4010 FOR
4015 SPRITE
4020 ANIM
4030 NEXT
4040 OFF
4060 PEN
4070 LOCATE
4080 CLEAR KEY
4090 INC
4099 GOTO
49000 REM # palette from sprite-bank #
49005 VARNAME
49010 RETURN
50 VARNAME
500 REM * collide ************************************
5000 REM * schot ***************************************
5005 PAPER
5010 PEN
5015 PAPER
5020 RETURN
5030 REM * schild **************************************
5035 PAPER
5040 PEN
5045 PAPER
505 IF
5050 RETURN
5060 REM * score ***************************************
5070 LOCATE
5090 RETURN
51 VARNAME
510 VARNAME
520 IF
549 REM **********************************************
550 FOR
551 IF
552 IF
553 IF
554 IF
555 IF
556 GOSUB
558 SPRITE
559 NEXT
60 GOSUB
600 IF
6000 REM * game over *********************************
6001 VARNAME
6010 OFF
6020 FOR
6030 PEN
6040 PEN
6050 PEN
6060 IF
6070 PEN
6090 CLEAR KEY
6099 GOTO
699 GOTO
70 REM * intro ****************************************
71 MODE
72 CLEAR KEY
73 HIDE
75 GOSUB
76 PEN
80 CURS
81 VARNAME
82 DEF
83 DEF
84 VARNAME
85 VARNAME
86 REPEAT
87 SCROLL
88 VARNAME
89 WAIT VBL
90 UNTIL
91 SHIFT